home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 June / Cd Pc Users 9.iso / prog / inst / baslibs / clslisti.cls < prev    next >
Encoding:
Text File  |  1996-12-04  |  1.1 KB  |  51 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsListItem"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = False
  8. Option Explicit
  9.  
  10. '  Used with the clsLinkedList class.
  11.  
  12. Private m_next As clsListItem
  13. Private m_prev As clsListItem
  14. Private m_data As Variant
  15.  
  16. Public Property Set ItemData(v As Variant)
  17.    Set m_data = v
  18. End Property
  19.  
  20. Public Property Get NextItem() As clsListItem
  21.     Set NextItem = m_next
  22. End Property
  23.  
  24. Public Property Set NextItem(Item As clsListItem)
  25.     Set m_next = Item
  26. End Property
  27.  
  28. Public Property Get PrevItem() As clsListItem
  29.     Set PrevItem = m_prev
  30. End Property
  31.  
  32. Public Property Set PrevItem(Item As clsListItem)
  33.     Set m_prev = Item
  34. End Property
  35.  
  36. Public Property Get ItemData() As Variant
  37.     If (VarType(m_data) = vbObject) Then
  38.         Set ItemData = m_data
  39.     Else
  40.         ItemData = m_data
  41.     End If
  42. End Property
  43.  
  44. Public Property Let ItemData(v As Variant)
  45.     If (VarType(v) = vbObject) Then
  46.         Set m_data = v
  47.     Else
  48.         m_data = v
  49.     End If
  50. End Property
  51.